شاید تا حالا برنامه ها مخصوصا سایت هایی رو دیدید که تو فرم های لاگ این برای کادر متن یه سری جلوه میزارن تا لذت بخش تر بشه.
ابتدا کد وقفه رو توی ماژول پروژه کپی کنید:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
خوب حالا دوتا کادر متن به اسم های TxtUser و TxtPass ایجاد کنید.
حالا با دقت به رویداد GotFocus هر یک برید و این کد هارو کپی کنید:
Private Sub TxtUser_GotFocus()
Do Until TxtUser.Width >= 2430
Sleep 5
DoEvents
TxtUser.Width = Txtuser.Width + 100
DoEvents
Loop
End Sub
Private Sub TxtPass_GotFocus()
Do Until TxtPass.Width >= 2430
Sleep 5
DoEvents
TxtPass.Width = TxtPass.Width + 100
DoEvents
Loop
End Sub
خوب حالا به سراغ رویداد LostFocus این کادر متن ها برید و این کد هارو کپی کنید.
Private Sub TxtUser_LostFocus()
Do Until TxtUser .Width <= 1215
Sleep 5
DoEvents
TxtUser .Width = TxtUser .Width - 100
DoEvents
Loop
End Sub
Private Sub TxtPass_LostFocus()
Do Until TxtPass.Width <= 1215
Sleep 5
DoEvents
TxtPass.Width = TxtPass.Width - 100
DoEvents
Loop
End Sub
خوب حالا برنامه رو اجرا کنید و به قدرت VB پی ببرید.
محک؟ اگر بطور سریع و پشت سر هم یا مثلا با کلید Tab از صفحه کلید فوکوس رو بین این دو کادر متن جابجا کنید میبینید که ترتیب اونها بهم میخوره.آیا میتونید کاری بکنید که این ترکیب حفظ بشه؟
توجه:این یکی از مهمترین کدهایی است که من تو برنامه هام ازش استفاده میکنم.به هیچ وجه از این کد ها در نرم افزار های رسمی استفاده نکنید.
:: موضوعات مرتبط:
ویژوال بیسیک 6 (آموزشی) ,
,
|
امتیاز مطلب : 1
|
تعداد امتیازدهندگان : 1
|
مجموع امتیاز : 1